﻿Imports Microsoft.VisualBasic

Public Class Profesor

#Region "Atributo"

    Private _personaId As Integer
    Private _titulo As String
    Private _area As String

#End Region

#Region "Propiedades"

    Public Property Titulo As String
        Get
            Return _titulo
        End Get
        Set(ByVal value As String)
            _titulo = value
        End Set
    End Property

    Public Property ProfesorId As Integer
        Get
            Return _personaId
        End Get
        Set(ByVal value As Integer)
            _personaId = value
        End Set
    End Property

    Public Property Area As String
        Get
            Return _area
        End Get
        Set(ByVal value As String)
            _area = value
        End Set
    End Property

#End Region

#Region "Constructor"

    Public Sub New(ByVal profesorId As Integer, ByVal titulo As String, ByVal area As Integer)
        Me._personaId = profesorId
        Me._titulo = titulo
        Me._area = area
    End Sub

#End Region




End Class
